home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / multimedia / _browser / _run < prev    next >
Encoding:
Text File  |  1997-12-14  |  1.7 KB  |  31 lines
  1. IF "<System$Path>" = "" THEN Error 0 System resources cannot be found
  2. IF "<GenLib$Dir>" = "" THEN Error 0 Please locate !GenLib
  3. IF "<Wimp$ScrapDir>" = "" Then Error 0 Browser requires a scrap directory to work
  4. IF "<Genesis$Scrap>" = "" THEN CDIR <Wimp$ScrapDir>.Genesis
  5. IF "<Genesis$Scrap>" = "" THEN SET Genesis$Scrap <Wimp$ScrapDir>.Genesis
  6. SET GenesisEd$Dir <Obey$Dir>
  7. SET Genesis$Dir <Obey$Dir>
  8. IconSprites <Obey$Dir>.!Sprites
  9. SET File$Type_D08 GScript
  10. SET File$Type_D07 GButton
  11. SET ALIAS$RMLoadIt RMEnsure %%0 %%1 RMLoad %%2|MRMEnsure %%0 %%1 Error Browser needs %%0 %%1 or later
  12.  
  13. SET ABCLib 1
  14. RMEnsure ABCLibrary    0.00 SET ABCLib 0
  15. |  ABCLib = 0 if not already loaded
  16. IF ABCLib = 0 THEN RMEnsure ABClibrary 4.02 RMLoad <Obey$Dir>.ABClib 
  17. IF ABCLib = 0 THEN RMEnsure ABCLibrary 4.02 Error The version of ABCLib installed in your !System is too old. Genesis Needs ABCLib 4.02 or later 
  18. IF ABCLib = 1 THEN RMEnsure ABCLibrary 4.02 Error You are already running a version of ABCLib which is too old. Genesis Needs ABCLib 4.02 or later 
  19. RMLoadIt FPEmulator 2.80 System:modules.FPEmulator
  20. RMLoadIt ColourTrans   0.60 System:modules.Colours
  21. RMLoadIt Euclid        2.20 <GenLib$Dir>.Modules.EuclidG
  22. RMLoadIt WimpManager   2.03 <GenLib$Dir>.Modules.WimpMan
  23. RMLoadIt GenesisLib    2.40 <GenLib$Dir>.modules.GS_Lib
  24. RMLoadIt GenesisResMan 2.40 <GenLib$Dir>.modules.GS_ResMan
  25. RMLoadIt GenesisUtils  2.40 <GenLib$Dir>.modules.GS_Utils
  26. RMLoadIt GenesisApplic 2.40 <GenLib$Dir>.modules.GS_Applic
  27. RMLoadIt GS_Support    1.40 <GenLib$Dir>.modules.GS_Support
  28. RMLoadIt PicConvert    1.00 <GenLib$Dir>.modules.PicConvert
  29. WimpSlot -min 544k -max 544k
  30. WimpSlot -min 356k -max 356k
  31. RUN <Obey$Dir>.!RunImage %*0